home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / linkseq.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  2KB  |  96 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16.  
  17. #define    CLASS    LinkSequence_c
  18. #define    ivType    LinkSequence_iv_t
  19.  
  20. #include "generics.h"
  21.  
  22. object    LinkSequence_c;
  23.  
  24.  
  25. #line 26 "linkseq.c"
  26. typedef struct  _LinkSequence_iv_t  {
  27.     object iNext;
  28. }    LinkSequence_iv_t;
  29.  
  30.  
  31.  
  32. #line 20 "linkseq.d"
  33. cmeth objrtn LinkSequence_cm_gNewWithObj(object self, object link)
  34. { 
  35.     object ls; 
  36.     ivType *iv; 
  37.  
  38.     ChkArgNul(link, 2); 
  39.     ls = oSuper(LinkSequence_c, gNew, self)(self); 
  40.     iv = ivPtr(ls); 
  41.     iv->iNext = link; 
  42.     return ls; 
  43. } 
  44.  
  45. imeth objrtn LinkSequence_im_gNext(object self)
  46. { LinkSequence_iv_t *iv = GetIVs(LinkSequence, self);
  47.     object n; 
  48.     if (n = iv->iNext) { 
  49.         iv->iNext = gNext(iv->iNext); 
  50.         return n; 
  51.     } 
  52.     return gDispose(self); 
  53. } 
  54.  
  55.  
  56. #line 57 "linkseq.c"
  57.  
  58. objrtn    LinkSequence_initialize(void)
  59. {
  60.     static  CRITICALSECTION  cs;
  61.     static  int volatile once = 0;
  62.  
  63.     ENTERCRITICALSECTION(_CI_CS_);
  64.     if (!once) {
  65.         INITIALIZECRITICALSECTION(cs);
  66.         once = 1;
  67.     }
  68.     LEAVECRITICALSECTION(_CI_CS_);
  69.  
  70.     ENTERCRITICALSECTION(cs);
  71.  
  72.     if (LinkSequence_c) {
  73.         LEAVECRITICALSECTION(cs);
  74.         return LinkSequence_c;
  75.     }
  76.     INHIBIT_THREADER;
  77.     Sequence_initialize();
  78.     if (LinkSequence_c)  {
  79.         ENABLE_THREADER;
  80.         LEAVECRITICALSECTION(cs);
  81.         return LinkSequence_c;
  82.     }
  83.     LinkSequence_c = gNewClass(Class, "LinkSequence", sizeof(LinkSequence_iv_t), 0, Sequence, END);
  84.     cMethodFor(LinkSequence, gNewWithObj, LinkSequence_cm_gNewWithObj);
  85.     iMethodFor(LinkSequence, gNext, LinkSequence_im_gNext);
  86.  
  87.     ENABLE_THREADER;
  88.  
  89.     LEAVECRITICALSECTION(cs);
  90.  
  91.     return LinkSequence_c;
  92. }
  93.  
  94.  
  95.  
  96.